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* GENERAL AUTOMATION, INC, ALL RIGHTS RESERVED 

************************************************** 
* 

* PROGRAM NAME FORTRAN RH-Q2 

* 

* MODEL NUMBER «F0C2 



PURPOSE 



FQRTRAM PHAS£*-02 



PROGRAMMER DICK WALLMANN, MODS-MARK ELfJZLD 



REVISION Ll*>T 



***************** 

* RV DATE SCO BY REASON FOR CHANGE 



************** 



* 
* 



01 11/16/70 



RPH INITIAL RELEASE 



* 

************************************************** 

************************************************** 

* GA 18/30 FORTRAN COMPILE* U5/0J/7G 

♦STATUS - VERSION 1, MODIFICATION 

•FUNCTION/OPERATION^ 

DETERMINES THE STMNT i yrE FOR EACH STf'NT, 
INSERTS T^'E TyPE CODE'lNTU THE STMNT JD WORD 
PLACES THP TERMINAL CHARACTER AT THE END 3F 
EACH STATEMENT 

CONVERTS SUBPROGRAM NAMES LUNGER THAN FIVE 
CHARACTERS TO F I VE»CHaRaC 1 EH NAMES 
CONVERTS FORTRAf>SUPPLlbD SUBPROGRAM 
ACCORDING TO THF SPECiFjEU PRECISION 



NAMES 



♦ENTRY POINTS- 



ART - PHASE 2 IS LOADED TU CORE \ 
VIA CALL T° RULHX FROM PHAS 



* * 

* 
* 
*INPUT- 

* NONE IN THE USUAL 

* STRING SCANNED BY 

* CONSIDERED INPUT 
*OUTPUT- 

* NOME IN THE USUAL 

* STRING ALTERED BY 

* CONSIDERED OUTPUT 

* EXTERNAL ROUT I'iES-N/A 
*EXITS- 

* NORMAL- 

* THE PHASE EXITS 



BY 
SE 



*ROLR 

1, 



START IS THE LABEL 



SENSE, HOWEVER* THE 
THE'CUMRlLER HAY BE 



UN THE XEQ ADDR., 
STMMT 



SENSEj, HOWEVER* THE STMNT 
THE'CUMplLER MAY RE 



TO RULRX, THE INTERPHASE 



* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



ROLLfcp/ FOR BOTH'NORMAL AND E K RNR EXITS, 
ERROR- 




SEITE 



6 


* 


POINT 


A MESSAGE IS POINTED, 


61 


•TABLES/WORK 


AREAS" 




62 


* NOME EXCEPT STATEMENT S|RjNb AREA, SYMBOL 


6:5 


* TABLE, AMD FORTRA 


M COMMUNICATION AREA 


64 


•ATTRIBUTES-! 


l/A 




65 


•MOTES 


*. 






66 


* 


THE ERROR DETECTED BY THIS PHASE IS f'UM 4 


6 7 


# THE SWITCHES USED 


IN PHASE 2 FALLON, IF NON* 


68 


* ZERO* THf 


- SWITCH 


IS TKANSFEHBTi IF ZERO, THE 


69 


* SWITCH IS MnPMAL= 


N, 


7 


* 


* SWlmREAL OR 


JNTEGEM {NUICATOR 


71 


* 




T=STATE« 


ENf IS REAL OR INTEGER 


72 


* 


* SW2-DO INDICATOR 


73 


• 




T=STATEMENT IS DO 


7 4 


* 


* SW3-WHICH HALF'OF KOKD lb CHARACTER 


75 


* 




T=RIGHT 


HALF 


76 


* 


* SW4. 


• CO 'TENTS 


OF *NaMS* 


77 


* 




TsCHARACTER in NaMS 


7 8 


* 


* SW5i 


-TYPE UF 


ARGUMENT Tu MAKt CHARACTER 


79 


* 




T=DPERAT 


QR 


BO 


• 


* SW6- 


-POSITION 


IN STATEMENT 


81 


* 




T=END OF 


STATEMENT 


82 


* 


• SW7. 


-DATA INDICATOR 


83 


• 




T=STATEM 


ENT IS DATA 


8 4 


* 


* SW8- 


-.QUOTE ENCOUNTEHED 


85 


* 




N=MOT ENCOUNTEHED 


B6 


• 


* SW9. 


-OUTPUT WHICH'HAUF UF WO«D 


8 7 


* 




N=LEFT H 


ALF 


a 8 


* 




T=RIQHT 


HALF 


89 




ABS 






9 


• 


SYSTEM 


AND FORTRAN EQUATES 


91 


MEMRY 


EQU 


/7FFF 


MAXjMgM CURE SIZE 


92 


PHSIZ 


EQU 


4*320 


MAXIMUM PHASE SIZE 


9 3 


nVERL 


FOU 


MEMRY-PH.SIZ PHASES 2-29 START 


04 


FCOM 


EQU 


OVERU-2 


2 FOR! RAN COMMi TABLE 


95 


PHNTB 


EQU 


FCOH-56 


PHAbE TABLE 


06 


ROLRX 


EQU 


PHNTB. 5C INTfcRpHASt CALL 


97 


* 


FORTRA 


fj COMMUNICAMON'AREA 


9d 




ORG 


FCOM 




99 


SOFS 


BSS 


1 


START Oh STRING 


100 


EQFS 


BSS 


1 


END OF bTKlNQ 


101 


SOFST 


BSS 


1 


STAKT OF SYMBOL TABLE 


102 


SOFNS 


BSS 


1 


START Of NOM-STMNT [-'UMBERS 


103 


SOFXT 


BSS 


1 


STAKT Op SUBSCHJPT TEMPS 


104 


SOFGT 


BSS 


1 


STAKT OF GENERATED TEMPS 


105 


EOFST 


BSS 


1 


END OF bYMBOL TABLE 


106 


COMON 


BSS 


1 


NEXT AVAILABLE COMMON 


107 


CSlZE 


BSS 


1 


SlZfc OF CtJMMUN 


108 


ERROR 


BSS 


1 


overlap erroh 


109 


FNAME 


BSS 


1 


pr'ouRam name 


110 




BSS 


1 


2ND WQRU OF ^ A f * Fi 


111 


SORF 


BSS 


1 


SUB!- {') pF FUNC (*) 


112 


ccwn 


BSS 


1 


CONTROL CARD WORD 


113 


* 




BIT 


15 TRANSFER TRACE 


114 


* 




BIT 


14 ARITHMETIC TKAPE 


115 


* 




BIT 


13 EXTtNDEU PRECISION 


116 


* 




BIT 


12 LIST S Y MBOL TABLE 


117 


* 




BIT 


11 LIS! sUbPROGKAM NAMf S 


118 


* 




BIT 


10 LISI SOURCE PROGRAM 


119 


* 




BIT 


9 ONE" WQRU INTEGERS 



SEITE 



120 

121 
122 

123 
124 

125 
126 

12 7 
128 
129 

13 
131 
132 
13.5 
134 
135 
136 
137 
133 
139 
140 
141 
142 
143 
144 
145 
146 

14 7 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
17 
171 
17 2 
173 
174 
175 
17 6 
177 
178 
179 



iocs ess 

* 
* 

* 
* 
* 
* 
*• 
* 

* 

* 

* 

* 

* 

* 

* 

DFCNT 

L.COMN 

ICCER 



BSS 
BSS 
BSS 
BSS 



* 

* 

ORG 
START LD 



WAIT BSI 
DC 



* 
* 
BACK 



BACKl 



* 
MOVE 



MXS 



LD 

S 

STO 

LDX 

MDX 

IDX 

LDX 

LD 

STO 

MDX 
MDX 
MDX 
MDX 
MDX 
LDX 
BSC 



LD 

AND 

SRA 

STO 

LD 

BSI 

MDX 

MDX 

MDX 



1 
2 
2 
2 



BSC L 



L3 

3 

12 

11 
2 
1 
1 
? 
3 

1 
I? 
L 



IQCb CONTROL CARD WORD 
BIT 15 CARU 
BIT 14 PAPER Tape 
BIT 13 TYPEWRITER 
BIT 12 1443 PRINTER 
BIT 11 MAGNETIC TAPE 
BIT 10 KEYBOARD 
BIT 9 144* PUNCH 
BIT 3 DISK 
BIT 7 NOT UsEU 
BIT 6 NOT USEU 
BIT 5 NOT USEU 
BJT 4 NOT USEU 
BIT 3 PLOTTER 
BIT 2 NOT USEU 
8JT 1 UNFORMATTED DISK 
BIT UNFORMATTED TAPE 

DEFINE F ILE COUNT 



END 
AREA 



INSKEL COMMON SJZE 

IOCb cONTKOt CARD ERROR 

SYSTEM LOADED USE 

i- ' r- ,~, n ~ n . ii n n m m i i m f r> a t t n M 



oyERL 
E"?ROR 
BACKi + » 
TRANSFERS 

ROIRX 

3 



SYSTEM LOADED i'SE 
OF FORTRAN COMMUNICATION 

AREA 

CHECKS THE FORTRAN COMMON I CAT I 

AREA ERROR WgRy FUR AM OVERLAP 



CHECK FUR OVERLAP 
BRANCH IF NOT 
TO KO^RX ROUTINE 
GO oET NEXT 
NEXl PHASE NUMBER 



LAP 
ERROR 



L 



L 



EDFS 
S.jFS 

**1 

*m + 

1 

EQFS 

EOFST 



*2 

-1 

-1 

-1 

PACK1 

3 

SOFS 

C3CT 

M 
S 



SQ7FC 

2 
XTE1 



PUT 

1 

XTE1.-1 

MXS 



t A I K n A a C Vi " n n c it 

MOVES THfc ENTIRE STATEMENT 
"NfcXT TO THE SYM TPL 



STRING 

LOAU 



t NU UF STRJMG ADDR=S 
SUBTRACT STA^T OF STRINS 

to Get sue of string • 1 
loau sue in xr3 

GET SIZE OF STRING 
INITIALIZE POINTERS FOR 
MUVjNG STRING UP TO SYM30 
TABLE 

MOVfc WORD FROM STRING T3 
SYMBOL TABLE - MOVE 
POINTERS t DECREMENT 
COUNTER OF RANGE OF LOO=> 
CON! INUE L 0QK 
RESET INPUT POINTER 
REStT OOTPUT POINTER 
CHEOK FOR NQNPROCESSiPUMC 
:OVES STUNTS FROM THE INPUT 
•TRING'To THE OUTPUT STRING 
I OAu STATEMENT ID WORD 



LOAU STATEMENT ID 
ZERO ALL BUT NORM 
MOVfc NORM TO RIGHT 
SET NOR* COUNTER 
LOAU JO t-JURD 
PUT ON OUTPUT STRING 
MOVfc JNRUT RU INTER 
DECHEMENT NO«M COUNTER 
CQN1 INUE loop 



SEITE 



iao 

181 

1B2 
IP 3 
184 

185 

136 
1*7 

iaa 

190 
191 

19 2 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 

20 3 
204 
205 
206 
207 
20 8 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 

22.0 
229 
230 
231 
232 
233 
234 
235 
2.36 
23 7 
238 
239 



* 

M0VE1 

IDSV 

* 

ZAO 



ZAOA 



* 
ZA1 



* 
ZA1A 



* 
ZA1B 



* 
ZA2 



LDX 
EQU 



LD 

SLA 

SRA 

STO 

LDX 

STX 

LD 

A 

STQ 

LD 

OSC 

MDX 

MDX 

NOP 

STX 

STX 

LD 

SRA 

S 

BSC 

LD 

BSI 

LD 

BSI 



STX 
LD 
BSI 
BSC 

S 
BSC 



LD 

BSC 

MDX 

MDX 

STX 

SLA 

STO 

STO 

STO 

STO 

STO 



BSI 
STO 

s 

BSC 
LD 



LI 



L3 

1 



3 
3 

L3 

L3 



L 
L 
L 



L2 

L 
L 



• «** 
*-l 




5 
7 
* + l 

IDSV 
ZAOA+1 
IDSV 
IDSV 


L 
-2 

-1 



L 
L 



^OVE TO NEXT STATEMENT 

MOVE JMPUT pojf'TER TO 
NEXT STATEMENT 

INITIALIZES FOR A SCAM Of 

THE STMNl STHING 

"LOAD STATEMENT ID WORD 
SHUT TU UET NOpM 



SAVE NORM IN XH3 

SAVE JMPUT POINTER 

ADD NORM TO POINTER TO 3E 

ADDRESS OF NEXT STATEMENT 



N3-, 



LOAU JD WpRD 

DOES STMNT HAVE STMfi' 

YES, MOUII-V NOHN CTP 

modify uth so have size 
stmnt without id word amd 
ncnt statement number 
nhnts savt modified norm 

chfck fok specjal end imdicator 
luau statement id word 
h get id type code 
p'dc check fur end type code 

ZAlBiZ BRANCH JF NOT END 
EPID LOAU ERROR SfMNT JD WORD 
PIT PUT WgRU UN OUTPUT STRING 
EPN02 LOAU ERROR NUMBER 
RUT PUT NQ, ON OUTPUT STRIN3 
PLACES~THE END ST^NT ID WORD 
QN THE SJRjNy 
EQFS SET'END OF STRING ADDRESS 
SlOOQ LOAU END STHNT ID WORD 
PUT PUT WORD ON OUTPUT STRING 
CALLC GO TO PHASE EXIT 

CHECKS FUR ARITHMETIC STUNTS 
ATHC ' HAS STMNT BEEN CLASSIFIED 
MQVE#Z VES, GO CHECK STHNT 
INITIALISE GET SUBROUTINE 
SAVt: INPUT POINTER 
LOAU STMNT ID WORD 
HAS STMNT NO. 
YES, MOVE POINTER OVER MO 
MUVfc POINTER TO FIRST WDR 

ADDRESS 



IQSV1 



E 

2 

1 

IDSA1 

16 

SW3 

3, ,'6 

SM7 

SW8 

SA9 



AFTER ID * SAVE 



CLEAR 
CLEAR 
CLEAR 
CLEAR 
CLEAR 

CHECKS 'THE 

FOR 



SWITCH 
SWITCH 
SWITCH 
SWITCH 
SWITCH 



ARITHMETIC 



GF.T1 

X 

SUHHS 

ZA5,*. 

X 

EQUC 



STMNT 
THE VARIOUS TYPES OF OPT9S 
"GET CHAR FROM INPUT STRIN 

SAVE CHARACTER 

IS UHARACTEP SLASH 

BRANCH IF YES 

IS CHARACTER EQUAL SIGN 



SEITE 



24 

242, 

242 

243 

244 

245 

246 

24 7 

24H 

249 

2'50 

2'"1 

252 

253 

254 

255 

256 

257 

256 

259 

260 

261 

262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

27 7 

278 

279 

280 

281 

282 

283 

284 

285 

286 

287 

288 
289 
290 
291 
292 
293 
294 
295 
296 
29 7 
298 
299 



ZA3 



ZA4 
IDSA1 



* 

ERN02 

S07FC 

XTEl 

ENPC 

S1000 

ATHC 

I0SV1 

EQUC 

CMAC 

LPC 

IOWD 

REALC 

INTC 

DOC 

EIGHT 

SW7 

SW8 

SW9 

SW1 

SW2 

X 

SUHHS 
ZA5 



BSC 

LD 

BSC 

HDX 

BSI 

STO 

s 

BSC 

S 

BSC 

LD 
BSC 

UDX 

EOU 

STO 

STO 

STO 

ID 

STO 

SLA 
STO 

HDX 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

LDX 

SLA 

STO 

STO 

STO 

LD 

STO 

BSI 

LD 

S 

BSC 

STX 

LD 



ZA3,*- 
X 

ZA2,Z 
ZA5 

GET1 

X 

CMAC 

ZA5,+- 

LPC 

ZA4,+- 

X 

ZA3,Z 



LI 

L 
L 
L 
L 
L 



BRANCH IF YES 

IS CHARACTER ZERO 

BRANCH IF NOT 

BRANCH • END OF STHl'T 

GET CHAK FROM INPUT STRIN 

SAVE CHARACTER 

IS CHARACTER COMMA 

BRANCH JF YES 

IS UHaR LEFT PARENT! J ESIS 

BRANCH IF YES 



**1 

S,J3 
Sw'4 
S^6 

MQMTS 
HC NT 



BRANCH IF NOT END Of" STMN 
INITIALUE GET SUBROUTINE 
LOAu STATEMENT ID WORD 



If: IDa'D 
WORD 



TVRF 

WORD 



II 

L 
L 
L 
L 

L 
L 

L 
L 
LP 



clear switch 3 
clear switch 4 
clear switch 6 

RESfcT MQRH TO 
ORIGINAL VALUE 

RUT ARITHMETIC ID WORD 
1 6 GET "ARITHMETIC ID 
IHWD STOKE IN ID WORD 
ZA6 GO HUT UN'OUTPUT STFING 

CONSTANTS 
3 "ERROR MU, 3 
/(17FC NORM MASK 
NORM COUNTER 
/H2 END STMNT ID 
/1004 END STMNT ID 
/00-/Q2 ARIIHMETIC STMNT ID TYP = 
INPUT POINTER 
/7E EQUAL SJGN 
/gB COMMA 
/4D-/6B LEF) pAKENTHbSIS 
n IP WORD 

/4 800 REAL STMNT \D TYPE 
/50Q0-/43QQ INTEGER STMNT ID TY=E 
/3800-/5000 DO STMNT ID TYPE 
8 EIGHT 

*.* SWllCH 
*„* SWITCH 
*„* SWITCH 
SWITCH 

SWITCH _ 

TEMPORARY 

/6l SLASH 
IDSA1 SET POINTER 

16 



7 

a 
v 
1 

2 



STORAGE 

AT STMNT ID 



CLEAR SWITCH 3 

S,i4 CLEAR SWITCH 4 

S:46 CLEAR SWITCH 6 

NCNTS REStT MURM TO 

NQNT OKIUINAL VALUE 

GETID GET ID TYRE 

inWD LOAU ID WURD 

I14B+2 JS UATA STATEMENT 

* + 2,Z BRANCH IF NO 

S J7 SET DATA SjTMNT INDICATOR 

IHWD LOAU ID WORD 



SEITE 



* 
ZA6 



* 
ZA6A 



300 
301 
302 
303 
304 
305 
306 
3H7 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 

340 
341 

342 * 

343 * 
344 

345 FCNT 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 



ZA7 



ZA8 



ZA9 

* 
ZA10 



ZA11 



S 

BSC 

STX 
LPX 
LD 
OR 

BSI 

LD 

BSC 

MDX 

HDX 

LD 

BSI 

LD 

BSI 

SLA 
STO 
STQ 
STO 

LP 
S 

BSC 
S 

BSC 

STX 

MDX 

S 

BSC 

STX 
BSI 

STO 

LD 

BSC 

LD 

S 

BSC 

MDX 



LDX 
EQU 

LD 
S 

BSC 

MDX 

LD 

BSI 

SLA 

STO 
MDX 



LD 
BSC 



L 107+2 
L ZA1A#+- 

PUT 
L2 IDSV2 

13 nsvi 

3 
IDWD 
L PUT 
3 
F 

**1 
ZA6A 
3 1 
L PJT 

3 2 
L PUT 

INIT 
16 

swi 

FCNT 

IS I 
IDWQ 
REALC 
L *+3,** 

riTc 

L ZA7,Z 

TAG 

SWI 



IS bND bTATEMEMT 
BRANCH IF YES 
ID'WuRD UN THL NEW STRING 
STOkE OUTPUT POINTER 
LUAu ADUR OF STHNT JD WQ 



PLACE IU WORD ON STRING 
LOAu JD WgRD 
HAS ST^NT NOi 

yes, go pgt no, on strimg 
no, go scan body of stmmt 
loau 1st word of stunt no 
put on Output 

LOAu gNU WORD 

put on uutput 
ialue tu scan 
clear switches 



mo 



STRING 

OF STHNT 

STRING 

BODY OF STAT 



ZA8 
PjC 
ZA8 

SW2 

GET 

X 

S>!1 

ZA.l 

FCN 

EIO 

ZA9 

FCN 



,1 



TAG 



T 
HT 

i+- 

T,l 
ISQL 
A TY 



L3 *-* 

*wl 

L3 FUN 
X 

L ZA1 

ZA1 

COL 
L MAK 



T-l 

2,t- 


ON 

E 

MORM 



OWU HEAL 
LOAu }D 
IS jT Rb 

BRANCH 1 
IS iT IN 

BRANCH J 

swi 

SET RfcAL 
GO bET N 
IS IT DU 
BRANCH J 
SW2 
SET DO 1 
GET CHAN 
STOKE CH 
IS IT Rfc 
BRANCH I 
LOAU FUN 
ALL LETT 
YES, GO 
MODIFY F 

ates the 
pe'simnt 

'UOAu XR3 

PUNLTjON 
LOAu LET 
DOE& JT 

BRANCH I 
GO NORMA 
LOAU COL 
CONVERT 
ALIZfc S^l 



OK INTEGER 

WQRD 

AL 

F YE« 

TbGEK 

F NOJ 

/JNTEGER INPICATO 
EXT CHARACTER 
STUNT 

F NOT 



NUICAT 
FROM 

AH 

Al,/ I NT 
F' NOT 
CTION 
ERS CO 
PUT ON 
UNCTIO 
WORD F 
ON THE 
WITH 
LETTE 

TtR PR 
MATCH 
F YES 
LJZE S 
ON 
CHAR F 



OR 

INPUT STRJN 

EGER STMNT 

LETTER CT3 
HP A RED 

ISOLATOR 
N LETTER :T 
UNCTION I M 

STRING 

R COUNTER 
OH TAPLE 
STRING CHAR 

WITCH 1 

OR OUTPUT 



16 
S.,"l 

zai; 



I SOL 
DO S 



L ZA12*+- 



CLEaR RtAL/INTEGER SWITCH 
GO TEST FOR LAST CHAR 

ATES'ST^NT NUMBERS IfJ 

TATEMENTb 

'IS JT DO STMNT 
BRANCH JF NOT 



SEITE 



36 


* 






IS 


X NJMfcRjC 


361 




LD 




X 


LOAU CHARACTER 


362 




SLA 




11 


SHJ^T LEFT 11 


363 




BSC 


L 


*<*2, * 


FIRbT TEST FUR NUMERIC 


364 




RSC 


L 


ZAl2iC 


SECUND TEST-BRANCH HUMERI 


36? 




LD 




COLON 


LOAU COLON 


366 




BSI 


L 


MAKE 


CONVERT CMAR FOP OUTPUT 


367 


* 






MOP 


'MALIZfc SW2 


360 




SLA 




16 




369 




STO 


L 


SM2 


CLEAR Dg INDICATOR 


370 


ZA12 


LD 


L 


X 


LOAU CHARACTER 


371 




BSC 


L 


ZAl3#+" 


BRANCH IF FINISHED STMNT 


372 




LD 


L 


X 


LOAU CHARACTER 


373 




BSI 


L 


MAKE 


CONVERT CHAP FOP OUTPUT 


374 




MDX 




ZA8 


CUN! iNUb CHECK LOOP 


375 


* 






CO? 


jSTANTS 


37 6 


SW3 


DC 







"SWITCH 3 


377 


SW4 


DC 







SWITCH 4 


378 


FUNT 


nc 




/C6 


F ' 


379 




DC 




/u4 


U 


380 




DC 




/D5 


Nj 


381 




DC 




/C3 


c 


382 




DC 




/E3 


T 


383 




DC 




/C9 


I 


384 




DC 




/D6 





385 




DC 




/D5 


N 


386 


COLON 


DC 




/3A 


COLUN 


387 


QSX1 


DC 







TEMPORARY STORAGE 


388 


SF803 


DC 




/F803 


CLEAR MURM MASK 


389 


SFF 


DC 




/FF 


CLEAR LEFT 8 BITS MASK 


390 


SEMI 


DC 




/If 


SEMICOLON 


391 


t 






PLACES THE STMNT TERMINATOR 


392 


* 






(SEMI-COLO|M>~AT THE END OF THE 


393 


* 






STATEMLN) 


394 


ZA13 


LD 




SEMI 


LOAU SEMleCOLON 


395 


fc. ry •*» v 


BSI 


L 


MAKE 


CONVERT CHAR FOR OUTPUT 


396 




LD 


L 


IDWD 


LOAU JD WQRD 


397 




S 


L 


ID4 + 4 


IS CONTINUE STMNT 


398 




BSC 


L 


07AliZ 


BRANCH IF NO 


399 




MDX 




-1 


DECKEMENT output pointer 


40 


* 






INSERT THE STATEMENT NORM 


4 PI 


# 






STMNT IP'WQRU 


402 


QZA1 


STX 


2 


: qsxi 


STOKE OUTPUT POINTER 


40 3 




LD 




OSX1 




40 4 




S 




IDSV2 


SUBTRACT STAHT ADDRiiSS TO 


405 




SLA 




n 


GET~NQRM • M f JVE IN ID W^R 


4Q6 




STQ 




Q3X1 




40 7 




LD 


L 


+ n* 


LOAU STATEMENT 


4 08 


IDSV2 


i EQU 




*wl 


10 WORD 


4 9 




AND 




SF8Q3 


ZERU NOKH 


410 




OR 




QSXI 


INStRT NEW NORM 


411 




STO 


I 


IDSV2 


PUT BACK QN STRING 


412 




BSC 


L 


MOVE! 


GO 10 NfcXT STATEMENT 


413 
414 


* 






GETS A CKAR FROM THE I/P STRJNG 


GETl 


DC 







RETURN ADDRESS 


415 




LD 


L 


Sri 3 


IS UHaP IN RIGHT HALR 


416 




BSC 


L 


OKYliZ 


BRANCH JF NOT 


417 




LD 




S.J6 


IS IT END OF STMNT 


418 




BSC 


L 


0XY4iZ 


BRANCH IF NOT 


419 


* 






T A 


,G SW3 



SEITE 



420 STX LO S.^3 SET RjGhT HALF INDICATOR 

421 * 36T LEFT CHARACTER 

422 LD 1 'lOAU WOHD FROM STRING 

423 3RA 8 UNPACK * GET LEFT HALF 

424 MDX GKY3 GO rO RfcTgRN 

425 GXYl SLA 16 

426 STO L S*'3 CLEAR RJGHT HALF INPICATO 

427 * GET HIGH! CHARACTER 

428 LD 1 "LOAD INPUT WORD 

429 AND L SFF UNPACK • CiET RIGHT CHAR 

430 GXY2 MDX 1 1 M "Vt POINTER 

431 MDX L NCNTi-1 DECREMENT NORM COUNTER 

432 MDX GXY3 BRANCH TO RETURN 

433 STX SJ6 SET END Or STHNT Sw 

434 # BLANK CHARACTER 

435 GXY5 S SQ04Q IS LAST CHAR BLANK 

436 BSC L GXY3|+" BRANCH IF YES 

437 A S0040 SET LAST CHAR TO BLANK 

438 MDX GXY3 BRANCH TO RETURN 

439 GXY4 SLA 16 SET END OF STMNT INPICATO 

440 GXY3 BSC I GET! RETURN 

441 * SETS TWO CHARACTERS FROM THE 

442 * INPUT STKING 

443 GET? DC "RETURN ADDRESS 

444 LD S,!6 IS IT END OF STHNT 

445 BSC L GXY4»Z BRANCH IF YF.S 

446 * GET BOfH CHAKACTERS 

447 LD GET2 LOAD RETURN ADDRESS 

448 STO GFT1 STOKE IN CiETl 

449 LD 10 LOAU WOHD IN STMNT 

450 MDX GXY2 GO |0 HUVfc POINTER 

451 * CONSTANTS 

452 NCNT DC NORM COUNTER 

453 NCNTS DC SAVE QRJGJNAU NORM 

454 SW6 DC SWITCH 6 

455 ERID DC /A008 ERRuR STMNT ID WORD 

456 NINE DC 9 NINE 

457 CHAR DC CHAKAC^bR COUNTER 

458 ERNO DC 4 ERRuR NO, 4 

459 OVLPC DC OVEKLAY TEST WORD 

460 S0040 DC /004Q EBC BLANK 

461 GETID DC RETURN ADDRESS 

462 LDX L3 TWONT-2 INITIALIZE TABLE POINTER 

463 * INITIALIZES FOK A STATEMENT 

464 * TYPE CODE TAdLfc SEARCH 

465 * GETS THE STMNT TYPE CODE 

466 * STQRES'lT JN THE ID WORD 

467 GTID1 MDX 3 2 MODiFy POjNTER 

468 LD 3 LOAU WORD FROM TABLE: 

469 BSC L ER,*» BRANCH JF END OF TABLE 

470 S 1 DOES MATCH WORD IN STRING 

471 BSC L GTID1,Z CONTINUE LOOP IF NOT 

472 * GET CORRtCT NAME TABLE 

473 LD 3 1 LOAU ADUR OF NAME TA8L.E 

474 STO *+2 

475 STX 3 GTID4+3 SAVE TABLE POINTER 

476 LDX L3 +«* ADDK oF NAME TABLE 

477 * INITIALISE TO SCAN NAME TABL= 

478 STX 1 GTID4+1 SAVE JNPUT POINTER 

479 MDX 1 1 MOVt JNPUT POINTER 



SEITE 



480 

431 

432 

433 

434 

435 

486 

487 

438 

489 

490 

491 

492 

493 

494 

495 

496 

497 

498 

499 

500 

501 

502 

503 

504 

505 

506 

50 7 

508 

509 

510 

511 

512 

513 

514 

515 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 

538 

539 



GTJD2 



GTID6 
GTID5 



GTIP3 



GTID4 



LD 

STO 

8SC 

MDX 

MDX 

BSI 

MDX 

BSI 

S 

BSC 

MDX 

MDX 

MDX 

LD 

STO 

MDX 

MDX 

STX 

BSC 

LDX 

LDX 

LD 

STO 

SLA 

STO 

MDX 



* 
* 
* 
PUT 



RTN 

# 

FR 

ER2 
ER1 



DC 

STO 

MDX 

STX 

LD 

S 

S 

BSC 

MDX 
BSC 

BSC 

LD 

BSI 

LD 

BSC 

LD 

BSI 

BSC 

LD 

A 

STO 

LDX 

LD 



L 
L 



L 
L 


i 

LI 
L3 



PUT 


CHAR 
GTID3,*- 

CHAR,-! 

GTID6 

GGT1 

GTIQ5 

GET2 

1 

GTID4 # Z 

1 

CHAR#-1 

GTID2 

1 

IPWD 

NCNTi-1 

**1 



L 
L 

L 
L 
I 



I 

L 



CHARACTER COUNT IN CHAR 
LOAU CHARACTER COUNT 
SAVfc 

BRANCH JF ZERO 
DECREMENT COUNT 
GET NEXT WORD FROM STRIMG 
GET CHAK fRO M INPUT STRJN 
SEE IF CHARACTERS MATCH 
GET NEXT WORD IN STMNT 
DDES WORD MATCH 
BRANCH IF NO 
MOVE TABLE POINTER 
DECREMENT CHARACTER COU\'T 
GO TO DECREMENT COUNT 
LOAD STHNT JO WORD 
SAVE 

MODIFY NORM COUNT 
SKIK SET SWITCH 
SET'END OF STMNT SWJTCH 

RETURN 

RESTORE INDEX 1 
RESTORE INDEX 3 
RESET NURM TO 
ORJylNAU VAL ,J E 



GET ID 

NCNTS 

NCNT 

16 

s*»3 clear right half inpicato 

GTID1 START CUMRARE AGAIN 
T-'IS SUBROUTINE PUTS THE WORD THAT 
IS IN THE ACCUMULATOR ON THE 
OUTPUT STRING, ENTRY I* A BS I 
INSTRUCTION TU THE L aBE L < p UT), 
THE OUTPUT STKJNG POINTER (XR2) IS 
I'JCREMEMTED"BY QNE gPON EXITING, 

PUT WORD ON STRING 
RETURN ADDRESS 

PQT'WQRU UN OUTPUT STRIMG 

1 MOVE OUTPUT STRJNG POJNTE 
OVERLAP fcRROR 

STORE OUTPUT POJNTEP 



OVLPC 
OVLPC 
THREE 
EOFST 

RTN,*Z 

SET 
ERROR, 1 

WAIT 
PUT 



PUT 



ERJD 

PUT 

IDSV1 

ER1,E 

FRNO 

PUT 

MOVE1 

-1 
MINE 

-1 

IDS VI 
1 



SUBTRACT THREE 
SUBTRACT END OF SYMHOL 
BRANCH IF NO OVERLAP 

UP~0VERLAP ERROR 

"SET OVERLAP ERPPR 
EXIT FROM PHASE 
RETURN 

OUT ERROR NO, 4 
LOAU ERROR STMNT ID WORD 
PUT ON UUTPUT STRJNO 
LOAU STMNT JO WORD 
BRANCH JF HAVE STMNT 
LOAU ERROR NUMBER 
PUT ON UUTPUT STRING 
GO TO NEXT STATEMENT 
LOAU OUTPUT STMNT IP 
ADD TWO TO NURM, SET 
NO, BIT ON* O/P ON 
LOAU STMNT AUDR IN 



TB 



NO, 



WO 3D 
STMN 

STRIMG 

XR3 



LOAU FIRST WORD OF NUMB=R 



SEITE 1C 

540 BSI PIT PUT °M OUTPUT STRING 

543, LD 3 2 LOAU 2^U WORD OF STtfNT MO 

542 BSI PUT PUT ON OUTPUT STRING 

543 MDX ER2 PUT ERRUR NO., ON STRING 

544 * CONSTANTS 

545 THREE DC 3 THRfcE 

546 SW1 PC SAVt wOKD 

547 SW5 DC SWJlCH b 

548 S0001 DC /0001 3 NJ E 

549 S003P DC /0R3F NORM MASK 

550 QUOTE DC /7D QUOTE 

551 RSS fc 

552 NAMS DC TWO WqRU A&EA FO 

553 DC SYMBOL TABLE NAME 

554 * stores NaME in na»e CODE 

555 * STORES OPTR IN ONE WORD ON 
5^6 * THE STRJnG 

557 MAKE DC RETURN ADDRESS 

558 STO SVV1 STOKE WyRU 

5^9 LD L S 7 ^8 HAS'QIJOTE BEEN ENCOUNTER 

560 BSC L MAKE7,Z BRANCH JF YES 

561 LD SVV1 LOAU WOKD 

562 SLA 8 GET RJGHT CHAR 

563 BSC L MAKE!,- BRANCH JF SPECIAL OPERATO 

564 SLA 16 

565 STO SW5 CLEAR ARGUMENT TYPE SW 

566 LD L S,'4 IS THERfc pHAK IN MARS 

567 BSC L MAKE4,Z BRANCH IF v£S 

568 * INITIALISE NaMS 

569 MAKE3 SLT 16 CLEAR EXTENSION 

570 LD SfiOOl LOAU NAMS FULL INDICATOR 

571 STD NAHS STOkE IN NAMS 

572 STX L0 S.M SET CmAK JN NAMS SW 

573 * IS NAMS ► ULL 

574 MAKE4 LD NAMS+1 LUAU gNU WORD OR NANS 

575 SLT 1 SHIKT Tg SEE IF FULL 

576 BSC L MAKE2,+Z BRANCH IF FULL 

577 * ADD ARGUMENT TQ NAMS 

578 LDD NAHS LOAU NAME 

579 RTE 26 CLEaR SPACE FOK NEXT CHAR 

580 STO NAMS STOKE 

581 LD SVV1 LOAU WOKD 

5fi2 AND ST03F CLEaR EXTRA BITS 

583 OR NAMS COMBINE W|T H NAMS 

584 STD NAMS SAVt NEW NAMS 

585 MAKES BSC J MAKE RETURN 

586 MAKE1 STX SW5 SET SWITCH TO OPERATOR 

587 LD L SW4 IS IH£Rfc CHA« IN NAMS 

588 BSC L MAKE7,*- BRANCH IF NO 

589 * NORMALUfc NAMS 

590 MAKE2 LDD NAMS LOAU NAMS 

591 RTE 16 ROTATE NAME 

592 SLT 1 HOVfc CHAR FROM EXTENSION! 

593 * TO ACCUMULATOR 

594 BSC L **3," 8KANCH IF SPECIAL OPERATO 

595 STD NAHS STOkE NAME 

596 BSI PJT PUT FjRST WO*D ON STRJN3 

597 LDD MAMS LOAU NAME 

598 SRT 3 PJT FJRST HALF OF 3RD C-U 

599 SLA 16 I^Tu EXTENSION-MOVE ENTJR 



SEITE 11 



60 

601 

602 

603 

604 

6115 

60 6 

6 07 

60 8 

609 

610 

611 

612 

613 

614 

615 

616 

617 

618 

619 

620 

621 

622 

623 

624 

625 

626 

627 

628 

629 

630 

631 

632 

633 

634 

635 

636 

637 

638 

639 

640 

641 

642 

643 

644 

645 

646 

647 

648 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 



EXFN1 



EXFN2 



MAKE 7 



MAKE9 



MAKES 



SLT 
BSC 
LDD 
SRA 
SLT 
BSI 

LDX 
UD 
SLA 
BSC 

LDX 

STX 

LDX 

LD 

S 

BSC 

LD 

S 

BSC 

LDD 

OR 

STO 

RTE 

STO 

HDX 

MDX 

MDX 

LD 

BSC 

LD 

S 

BSC 

S 

BSC 

LD 

BSC 

SLA 

STO 

LD 

EOR 

STO 

MDX 

LD 

BSC 

LD 

BSC 

LD 

SLA 

BSI 

STX 

MDX 

LD 

OR 

STO 

SLA 

STO 

MDX 



SET 



L * + 4,*. 

MAMS 
15 
15 
PUT 

L3 /3C00 
L CCWD 

13 
L *+2,- 
L3 /8A0O 



3 NAMED 

fin 

3 36 

2 -2 
L3 FJNEX-4 
L EXFN2.Z 

2 -1 
L3 F-.INEX-3 
L EXFN2,Z 
L3 FJNEX-2 
NAMED 

2 -2 
16 

2 "I 

* + 2 

3 -4 
EXFN1 



L MAKES,*. 

syvi 

QUOTE 
L **3,*« 

QijMSL 
L MAKE9,Z 
L SW7 
L MAKE6,*. 

16 
L SA9 

* 

L SW8 
L S.18 
MAKE6 

L SWB 

L MAKE6,*. 

L S,]9 

L MAKE8.Z 

svvi 

8 
L PUT 
LO S^9 
MAKEA 
2 -1 
L SVVI 

2 -1 
16 
L S^9 
MAKEA 



CHAk TO ACC FOR TESTING 
BRANCH JF ONE WORD NAME 
LOAU NAMS 

MQVfc BIT TO RIGHTMOST ?0 
MOVfc EXTENSION TO ACC 
PUT" ON OUTPUT STRjNG 
MODE Or NAMS 
LOAU FLOATING POINT MODE 
TEST EXTENDED PRECISION 
8IT"0F CONTROL CARD WORD 
BRANCH IF STANDARD PRE: 
LOAU EXTENSION PRECISION! 

MOUE 
STOKE MUDfc 
D NAMfc TO TRANSLATE 
INITIALIZE COUNTER 
LOAU WOHD TO BE TRANSLATE 
MATCH ENTRY IN TABLE 
BRANCH IF NO! 
LOAU 2NU WORD 
MATCH ENTRY IN TABLE 
BRANCH IF NOT 
LOAU FUNCTION NAME 
ADD MgDfc TO NAME 
STOKE IN OUTPUT STRING 
LOAU 2^U WORD 
PUT ON OUTPUT STRING 
GO I EST SWITCH 5 
MODIFY COUNTER 
CON I iNUfc LOOP 
IS ARGUMENT OPERATOR 
BRANCH IF NO 
LOAU WOKD 
IS IT QUOTE 
SK{H AROUND IF YES 
ELSfc COMPARE TO SLASH 
BR }F NU COMPARE 
IS JT DATA SfMNT 
BRANCH IF NO 



SET LEFT HALF SWjTCh 



REVfcRSE QUOTE INDICATOR 

PUT CHAK QN OUTPUT STRIMG 

WAS QUOTE ENCOUNTERED 

BRANCH \F NOT 

OUTKUT WIGHT HALF Of W03D 

BRANCH JF YES 

LOAU WOKD 

SHlhT TQ LEFT 

PUT' ON UUTPUT STRING 

SET SW TO O/P KIGHT HAL r 

GO NORMALIZE SWITCH 4 

LOAU WOKD FROM OUTPUT 

PUT IN KIGHT CHAR 

PUT BACK QN OUTPUT STRING 

SET SW TO O/P LEFT HALF 
GO NORMALIZE SWITCH 4 



SEITE X2 



660 


MAKE6 


LD t 


„ svvi 


LOAU WQKD 


661 




AND I 


. S003F 


GET NECtSSARY BJTS 


662 




BSI \ 


. PUT 


PUT ON OUTPUT STRING 


663 


HAKEA 


SLA 


16 




664 




STO I 


, SW4 


CLEAR CHAK IN MAMS SW 


665 




MDX 


HAKE5 


RETURN 


666 


QUMSL 


DC 


/1E»/7D 


OUOfE » SEMICOLON 


66 7 


# 




FUNCTIONAL EXCHANGE TABLE 


668 




BSS I 


: 




669 


FUNEX 


DC 


/Q44A 


iSJ* 


670 




DC 


/DOOO 


iM m 


671 




DC 


/QUI 


m s* 


67 2 




DC 


/9540 


* I N» 


673 




DC 


/S6B4 


wCO» 


674 




DC 


/A000 


»5 * 


675 




DC 


/Q01A 


*~c* 


676 




DC 


/E880 


»OSw 


67 7 




DC 


/331b 


<» AT» 


678 




DC 


/9540 


» AN* 


679 




DC 


/GOOC 


» AT» 


68 




DC 


/3055 


♦ AN* 


681 




DC 


/C4C3 


»SQ» 


682 




DC 


/98C0 


» RT« 


683 




DC 


/0113 


• SO • 


684 




DC 


/8663 


»RT* 


6S5 




DC 


/829A 


»AL" 


686 




DC 


/E1C0 


*OG« 


687 




DC 


/ooqa 


*a'l» 


688 




DC 


/B587 


*QG« 


689 




DC 


/8B3A 


«£** 


69 




DC 


/FOOO 


*5 * 


691 




DC 


/002C 


• E* 


692 




DC 


/F5C0 


*XP» 


693 




DC 


/C448 


m S J • 


694 




DC 


/F540 


-iGNw 


695 




DC 


/QUI 


»|i« 


696 




DC 


/91D5 


» QN» 


697 




DC 


/C60A 


* f A» 


698 




DC 


/D200 


f NH# 


699 




DC 


/0118 


*T A* 


700 




DC 


/9548 


*NH» 


701 




DC 


/8214 


*AB«p 


702 




DC 


/A000 


»S * 


703 




DC 


/0008 


*• A» 


704 




DC 


/A880 


v8S« 


705 


NAMED 


DC 





USEFUL. CONSTANT 


706 


* 




TABLE CONTAINING THE FIRST TrfO 


707 


* 




CHARS OF THE FgRTRAN stmnt 


708 


* 




SAMES ANu THb ADDRESSES OF T -IE 


709 


* 




REHAINJNii NAME CHARACTERS 


710 


TWONT 


DC 


/C4D6 


DO 


711 




DC 


ID6 


ADDKESS 


712 




DC 


/C7D6 


GO TO 


713 




DC 


ID11 


ADDKESS 


714 




DC 


/C9C6 


IF 


715 




DC 


ID12 


ADDKESS 


716 




DC 


/D9C5 


REAU 


717 




DC 


ID15 


ADDKESS 


718 




DC 


/E6D9 


WRITE 


719 




DC 


ID21 


ADDKESS 



SEITE 3,3 



720 


DC 


/C3C1 


CALL EXJT 


721 


DC 


IDU 


ADDRESS 


722 


DC 


/C3C1 


CALL LINK 


723 


DC 


ID1K 


ADDKESS 


7?,A 


DC 


/C3C4 


CALL 


725 


DC 


ID2 


ADDKESS 


726 


DC 


/C6C9 


FINU 


727 


DC 


ID9S 


ADDKESS 


728 


DC 


/C4C9 


DIMfcNSlUN 


729 


DC 


ID5 


ADDKESS 


730 


DC 


/C3D6 


COMMON 


733, 


DC 


ID3 


ADDKESS 


732 


DC 


/C5Q8 


EQU'jVALfcNgE 


733 


DC 


ID9 


ADDKESS 


734 


DC 


/C9D5 


iNTfcGER 


735 


DC 


ID13 


ADDKESS 


736 


DC 


/D9C5 


REAL 


737 


DC 


ID16 


ADDKESS 


738 


DC 


/C5E7 


EXTERNAL 


739 


DC 


ID9J 


ADDKESS 


740 


DC 


/C3D6 


CONTINUE 


741 


DC 


ID4 


ADDKESS 


742 


DC 


/D7C1 


PAUSE 


743 


DC 


ID14 


ADDKESS 


744 


DC 


/D9C5 


RETURN 


745 


DC 


ID17 


ADDKESS 


746 


DC 


/E2E3 


STOP 


747 


DC 


ID19 


ADDKESS 


748 


DC 


/D9C5 


REWIND 


749 


DC 


ID18 


ADDKESS 


750 


DC 


/C2C1 


BACKSPACE 


751 


DC 


ID1 


ADDKESS 


752 


DC 


/C5D5 


END'FlLt 


753 


DC 


IDS 


ADDKESS 


754 


DC 


/C4CS> 


DEFJNE KILE 


755 


DC 


ID4J 


ADDKESS 


756 


DC 


/C5D5 


END" 


757 


DC 


ID7 


ADDKESS 


758 


DC 


/C6E4 


FUNgTjON 


759 


DC 


inio 


ADDKESS 


760 


DC 


/E2E4 


subroutine 


761 


DC 


ID20 


ADDKESS 


762 


DC 


/C4C1 


DATA 


763 


DC 


IP4B 


ADDKESS 


764 


DC 





USEFUL CONSTANT 


765 


* 


30DY NAMt TABLE 


766 


• 


BACKSPACfc 


767 


ID1 DC 


7 


COUNT 


768 


DC 


/C3D2 


CK 


769 


DC 


/E2D7 


SP 


770 


DC 


/C1C3 


AC 


771 


DC 


/0OC5 


E" 


772 


DC 


/Q8Q0 


ID WORD 


773 


* 




CALL EXIT 


774 


IDU DC 


6 


COUNT 


775 


DC 


/D3D3 


LL 


776 


nc 


/C5E7 


EX 


777 


DC 


/C9E3 


If 


778 


DC 


/E002 


ID WORD 


779 


* 


CALL LINK 



SEITE 14 



780 


ID1K 


DC 


6 


COUNT 


781 




DC 


/D303 


LL 


782 




DC 


/D3C9 


LI 


783 




DC 


/Q5D2 


NK 


784 




DC 


/EO00 


ID WORD 


785 


* 




CALL 




786 


ID2 


DC 


2 


COUNT 


787 




DC 


/D3D3 


LL 


788 




DC 


/3000 


10 WORD 


789 


* 




COMMON 


79D 


ID3 


DC 


4 


COUNT 


791 




DC 


/H4D4 


MM 


792 




DC 


/D605 


ON 


793 




DC 


/3800 


ID WORD 


794 


* 




CONTINUE 


795 


ID4 


DC 


6 


COUNT 


796 




DC 


/D5E3 


NT 


797 




DC 


/C9D5 


IN 


798 




DC 


/E4C5 


UE 


799 




DC 


/30Q0 


ID WORD 


800 


* 






DATA 


801 


ID4B 


DC 


2 


COUNT 


802 




DC 


/E3C1 


TA 


80 3 




DC 


/F80Q 


ID WORD 


804 


* 




DEFINE FILE 


805 


ID4J 


DC 


8 


COUNT 


806 




DC 


/C6C9 


Ft 


807 




DC 


/D5C5 


NE 


808 




DC 


/C6C9 


FI 


809 




DC 


/D3C5 


LE 


810 




DC 


/FOOQ 


I'D WORD 


811 


# 




DIMENSION 


812 


ID5 


DC 


7 


COUNT 


813 




DC 


/D4C5 


ME 


814 




DC 


/D5E2 


NS 


815 




DC 


/C9D6 


10 


816 




DC 


/0OD5 


N 


817 




DC 


/4000 


10 WORD 


81B 


* 




DO 




819 


ID6 


DC 





COUNT 


820 




DC 


/5800 


Iii WORD 


821 


* 




END 




822 


ID7 


DC 


2 


COUNT 


823 




DC 


/C440 


D ' 


824 




DC 


/1000 


ID WORD 


825 


* 




ENDFILE 


826 


108 


DC 


5 


COUNT 


827 




DC 


/C4C6 


DF 


828 




DC 


/C9D3 


IL 


829 




DC 


/0OC5 


E ' 


830 




DC 


/1800 


ID WORD 


831 


* 




EQUIVALENCE 


832 


ID9 


DC 


9 


COUNT 


833 




DC 


/E4C9 


UI 


834 




DC 


/E5C1 


VA 


835 




DC 


/D3C5 


LE 


836 




DC 


/D5C3 


NC 


837 




DC 


/0OC5 


E" 


838 




DC 


/A800 


ID WORD 


839 


* 




EXTERNAL 





SEITE 15 



840 


ID9J 


DC 


6 COUNT 


841 




DC 


/E3C5 TE 


84 2 




DC 


/09D5 RN 


843 




DC 


/C1D3 AL 


844 




DC 


/C8QQ ID WORD 


845 


* 




FIND 


846 


ID9S 


DC 


2 COUNT 


847 




DC 


/D5C4 ND 


848 




DC 


/P8Q0 {D WORD 


849 


# 




FUNCTION 


850 


ID10 


DC 


6 "COUNT 


851 




DC 


/D5C3 NC 


852 




DC 


/E3C9 TI 


853 




DC 


/D6D5 ON' 


854 




DC 


/6800 ID WORD 


855 


* 




30TO 


856 


ID11 


DC 


2 COUNT 


857 




DC 


/P3D6 TO 


858 




DC 


/7000 ID WORD 


859 


* 




IF 


860 


ID12 


DC 


COUNT 


861 




DC 


/7800 10 WORD 


86 2 


* 




INTEGER 


863 


ID13 


DC 


5 COUNT 


864 




DC 


/E3C5 TE 


865 




DC 


/C7C5 GE 


866 




DC 


/G0D9 R 


867 




DC 


/5000 ID WORD 


868 


* 




PAUSE 


869 


ID14 


DC 


3 COUNT 


870 




DC 


/E4E2 US 


871 




DC 


/Q0C5 E 


872 




DC 


/9800 ID WORD 


873 


* 




READ 


874 


ID15 


DC 


2 COUNT 


875 




DC 


/C1C4 AD 


876 




DC 


/9000 ID WORD 


877 


* 




REAL 


878 


ID16 


DC 


2 COUNT 


879 




DC 


/C1D3 AL 


880 




DC 


/4800 ID WORD 


881 


* 




RETURN 


632 


ID17 


DC 


4 COUNT 


883 




DC 


/E3E4 TU 


884 




DC 


/D9D5 RN 


885 




DC 


/ a o Q ID WORD 


886 


* 




REWIND 


887 


1018 


DC 


4 COUNT 


888 




DC 


/E6C9 WI 


889 




DC 


/H5C4 NO 


890 




DC 


/2800 ID WORD 


691 


* 




STOP 


692 


ID19 


DC 


2 COUNT 


893 




DC 


/D6D7 OP 


894 




DC 


/R8Q0 ID WORD 


895 


* 




SUBROUTINE 


69 6 


ID?.C 


DC 


a count 


89 7 




DC 


/C2D9 BR 


898 




DC 


/Q6E4 OJ 


899 




DC 


/E3C9 TI 
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900 
901 

902 
90 3 
904 

905 
906 
907 
908 
909 
910 
911 
912 
913 
914 
915 
916 
917 
918 
919 
920 
921 
922 
923 
924 
925 
926 
927 
9R8 
929 
930 
931 
932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 
943 
944 
945 
946 
947 
948 
949 
950 
951 
952 
953 
954 
955 
956 
957 
958 
959 



ID21 



CAULC 

# 

ENDD 



* 
IDAHO 



DC 
DC 

DC 
DC 
DC 
DC 

LDX U 



* 

IDSVV 

IDTPE 

CALU 

SENC 

SENC1 

SENC2 

NAME 

OVER 

OVER1 

0VER2 

SENL 

SENU 

SENL2 

SENL3 

S0004 

* 

XYZ 



SIX 
LD 
S 
BSC 

LD 

AND 

SRA 

S 

BSC 

LD 

BSC 

MDX 

MDX 

LD 

S 

BSC 

LD 

S 

BSC 

MDX 

LD 

S 

BSC 

MDX 

MDX 

DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

LD 

S 

BSC 

LD 

S 



L 
L 



1 
1 



/D5C5 
/2000 

WR 
3 

/C9E3 
/00C5 
/ 3 8 

RE 
SOFS 

CM 

EN 
IDSW 


siooo 

WAIT,*- 

CA 


idtpe 

2 

CALL1 

M3VIE f Z 





ITE 



-IN 

ECK 
D S 



LL 



c 

1 



SgNC 
XYZ,Z 
1 

SENC1 
Z 

xyz 

2 

SENC2 

Z 

XYZ 

XXYZ 

constan 



/reoo 
/ocoo 

/C514 

/E8C3 

/9000 



/AD28 

/D646 

/A600 

/C499 

/98C5 

/C6Q0 

/98E3 

4 



OVER 

XYZliZ 

1 
Ov'ERl 



CHECK 



ME 
ID 

CUU 

IT 

E 

ID 

IT J 

INI 

S F 

TAT 

SfO 

loa 
is 

BRA 

ST A 

LOA 

GET 

SHI 

IS 

BRA 

LOA 

HAS 

YtS 

MOV 

S"F 

LOA 

IS 

3RA 

LOA 

IS 

SKI 

GO 

LOA 

IS 

SKI 

GO 

GO 



WORD 



NT 



WORD 
ALlZt 
TULIZE 
OR THE 
fcMENT 
KE iMPg 
U STM.MT 
IT END 
NCH IF 
TEMENT 
U STMNT 
ID TYP 
l-T RIGH 
JT CALL 
NCH IF 
D STMNT 
STMNT 
- MOVE 
t INCUT 
UR THE 
U FIRST 
IT SS 
NCH IF 
U 2ND tf 
iT HT 
¥ JF" Yfe 
TO NEXT 
U 3^0 W 
IT CH 
¥ IF YE 
TO NEXT 
TO CPNV 



INPUT POINTED 
PRESENCE OF A\' 

T POINTER 

JP WORD 
ST^NT 
YES 

JD WORD 
E 
T TWO 

STMNT 
NOT 

ID WORD 
NO, 

PT OVER NO, 

POINTER 
NAME SSWTCH 

WORD IN BODY 

NOT 

ORD OF BODY 



COMPARE 
ORD OF BODY 



COMPARE 
ERT TO 5 CHAR 



TS 



ECK 



I MRU 

ID M 

CALL 

SS 

HT 

CH 

INPU 

OV 

EK 

FL 

SL 

If 

Ef 

T" 

NORM 

S"FU 

LOAU 

IS 1 

BRAN 

LOAU 

IS 1 



T POINTER 
ASK 
STMNT ID TYPE 



T puinter 



OF ONE 
R THE NAME OVERFL 

1ST WORD IN BODY 
T OV 
CH IF NOT 

2NU WOR1J IN BODY 
T EK 
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960 

961 

962 

963 

964 

965 

966 

967 

968 

96" 

97 

971 

972 

973 

974 

975 

976 

977 

978 

979 

9B0 

981 

982 

983 

984 

985 

986 

987 

988 

989 

990 

991 

902 

993 

994 

995 

996 

997 

998 

999 

1000 

1001 

1002 

1003 

1004 

1005 

1006 

1007 

1008 

1009 

1010 

1011 

1012 

1013 

1014 

1015 

1016 

1C17 

1018 

1019 



* 
XYZl 



# 
XXYZ 



BSC 
LD 
S 
BSC 

ID 

S 

BSC 

LD 

S 

BSC 

MDX 

LD 

S 

BSC 

MDX 

LD 

STO 



MDX 
STX 
LD 
S 

STO 
LDX 

LD 

STO 

MDX 

MDX 

MDX 

LDX 
LP 
S 
STO 



* 
MOVIE 



MX ID 

* 
* 

* 
CQCT 



LDX 
LD 
SLA 
SRA 

A 

STO 

LDX 

MDX 



Zl 



SLA 

LD 

SLA 

BSC 

LD 
OR 
STO 
BSC 

DC 
BSS 



XYZliZ 
2 

0VER2 
XXYZ#* 



L3 
1 
1 
1 
3 



II 
1 



LI 



L 
L 

L 
L 



BRANCH IF NOT 
LOAD 3RD wORO 
IS iT FL 
BRANCH IF YES 



IN BODY 





SENL 

MOVIE, Z 

1 

SENL1 

Z 

MOVIE 

2 

SENL2 

Z 

MOVIE 

SENL3 
1 



2 

NAME 
EOFS 

NAME 
* + l 

1 



1 
-1 

*»5 



II 

1 



CHECKS FUR THE NA"E SLITET 
LOAu 3.ST WORD IN BODY 
IS IT SC 
BRANCH IF NOT 
LOAU 2NU WORD IN BODY 
IS IT IT 
SKIP IF YfcS 
GO 10 NEXT STMNT 
LOAD 3«D WORD If] BODY 
IS IT El 
SKIP IF YES 
GO fO NEXT STMNT 
LOAU NEW WORD FOR SLITET 
STOhE END 
CLQSES'ThE STRJNG BY ONE WORD 
AMD ADJUSTS THE STMNT NORM 
MOVE JNPUT POINTER 
SAVb JNPUT POINTER 
LOAU EMU OF STRING AODRSS 
SUBlRACT INPUT POINTER TO 
GET~RaNUE OF LOOP 
LOAU XR3 WITH RANGE 
MdVfc WOKD DOWN 

ONE'POSJTION 

MOVfc POINTER 
DE'CnEmEnT RANGE 
CON| iNUfc LOOR 

ADJUST NORM 
IPSVV RES | ORE INPUT POINTER 

LOAU STMNT ID WQRD 

SD004 DECREMENT NORM BY ONE 
PUT'NpRM BAC K ON STRING 

UPDATES 1 HE STRING l/P PT (^D 
TO MOVE ?0 THE NEXT STMNT 
IDSVV RESlORE INPUT POINTER 
LOAU STMNT JO WORD 

5 SHUT TU GET NORM 

7 

IHSVV ADD INPUT POINTER TO GET 
NXID+1 ADDKESS OF NEXT STMNT 
RESfcT INPUT POINTER 
EJDD GO CHECK FOR STMNT TYPE 
PROCESS IOCS WORD AND SET DEVICE 
INITIALIZATION ROUTINES 
SETUP PRECIS'IUN AND TEST FOR ONE *!D 

INTEGERS 

16 ZERU TMfc ACC 

CCWD LD CONTROL CARD WORD 

7 TES) FOR NONPROCESS PR03 

**5,+Z BRANCH IF BIT 7 ON 

COWD LD UCWD IF PROCESS PROG 

Zi SET^BJT 9 ON FOR ONE WD IN 

CCWD STOKE THE CC'D IN CCWD 

ZAO GO 10 SCAN STMNT STRING 

/ q 4 8 I T " 9 ON FOR (WING 

OVERL-*+320*3 
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10 2 



END START 



